home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er
/
64ER_CD.iso
/
86xx
/
8608a.d64
/
demo modul33
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
1995-03-30
|
450b
|
18 lines
100 REM BEISPIEL "MITTERNACHTSFORMEL"
110 PRINT "LOESUNG EINER QUADRATISCHEN GLEICHUNG"
120 INPUT "KOEFFIZIENTEN A,B,C ";A,B,C : PRINT
130 D=B*B-4*A*C
140 CASE IF D>=0
150 : CASE IF D>0
160 : PRINT "ZWEI LOESUNGEN"
170 : PRINT "X1 =";(-B+SQR(D))/(2*A)
180 : PRINT "X2 =";(-B-SQR(D))/(2*A)
190 : CASE ELSE
200 : PRINT "EINE LOESUNG"
210 : PRINT "X =";-B/(2*A)
220 : CASE END
230 CASE ELSE
240 : PRINT "KEINE REELLE LOESUNG"
250 CASE END
260 END